object Form12: TForm12 Left = 198 Top = 98 BorderIcons = [] BorderStyle = bsSingle Caption = 'Alternative ways of registering' ClientHeight = 388 ClientWidth = 461 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnActivate = FormActivate OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object GroupBox1: TGroupBox Left = 3 Top = 1 Width = 454 Height = 384 TabOrder = 0 object Label44: TLabel Left = 10 Top = 14 Width = 439 Height = 59 AutoSize = False Caption = 'If you for any reason can�t pay by credit card, you can pay by u' + 'sing the international money transfer service SWIFT. Most countr' + 'ies support it. Ask for it in the bank and they will know what i' + 't is. The necessary info will then be:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Label7: TLabel Left = 10 Top = 72 Width = 95 Height = 41 AutoSize = False Caption = 'Name: Account #: SWIFT Address: ' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False WordWrap = True end object Label1: TLabel Left = 114 Top = 72 Width = 135 Height = 73 AutoSize = False Caption = 'Magnus Br�ding 1027506-3 PGSI SESS ' + ' Postgirot Sweden 105 06 Stockholm' Font.Charset = DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Label2: TLabel Left = 10 Top = 174 Width = 439 Height = 43 AutoSize = False Caption = 'When you have made the SWIFT transfer, send me an e-mail telling' + ' me that you have paid and also to what e-mail address I should ' + 'send the registration code. I will then send the code as soon as' + ' the money is in my account.' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Label4: TLabel Left = 10 Top = 238 Width = 442 Height = 43 AutoSize = False Caption = 'Due to the extra $5 to the price, the SWIFT may not be such a go' + 'od alternative for a single copy registration. If you want to pu' + 'rchase a single copy registration, the best alternative besides ' + 'credit card payment is probably' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Label5: TLabel Left = 10 Top = 144 Width = 431 Height = 33 AutoSize = False Caption = 'When using SWIFT you must add $5 to the program�s price to cover' + ' the bank�s fees on my side.' Font.Charset = DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True end object Label6: TLabel Left = 10 Top = 278 Width = 439 Height = 43 AutoSize = False Caption = 'to put $8 and a note telling me your name and e-mail address in ' + 'an envelope and mail it to me. To be sure of avoiding it from di' + 'sappearing on the way to me, fold it into some colorful paper e.' + 'g. a newspaper piece. You can also' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Label3: TLabel Left = 10 Top = 318 Width = 439 Height = 35 AutoSize = False Caption = 'use a $10 bill to decrease the thickness of the envelope for the' + ' same reason, but that�s all up to you :-)' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Label8: TLabel Left = 10 Top = 350 Width = 354 Height = 27 AutoSize = False Caption = 'To get my postage address, simply send me an e-mail (m9761@abc.s' + 'e) and ask for it.' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Button1: TButton Left = 374 Top = 356 Width = 73 Height = 20 Caption = 'Back' TabOrder = 0 OnClick = Button1Click end end end